home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 January / 1990-01.d64 / bitmap fx (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  2.0 KB  |  73 lines
  1. 10 poke51,0:poke52,88:poke55,0:poke56,88
  2. 15 print"[147][154]":poke53280,14:poke53281,6
  3. 20 ifa=0thena=1:load"bfx.ml",8,1
  4. 30 poke784,76:poke785,54:poke786,198:rem usr to point to joymov
  5. 40 sys50561:rem reset
  6. 50 sys50715:rem gotext
  7. 60 poke53280,peek(646)
  8. 70 print"[147]bitmap effects - (c)1990 compute! pub.  [146]";
  9. 80 print" [return]=help toggle    x = exit":print
  10. 90 print"screen commands; use commodore key with [146]";
  11. 100 print" [l]=load into 1        [s]=save from 1"
  12. 110 print" [x]=exchange 1 and 2   [b]=blank 1"
  13. 120 print" [r]=reproduce 1 on 2   [i]=invert 1":print
  14. 130 print"edit; joystick=move button=slow         [146]";
  15. 140 print" [clr]=reset         [p]=paste at dots"
  16. 150 print" [c]=cut-copy        [e]=erase at dots"
  17. 160 print" [o]=outline edges   [t]=toggle at dots"
  18. 170 print" [\]=flip 90 degrees"
  19. 180 print" [+]=flip around vertical centerline"
  20. 190 print" [-]=flip around horizontal centerline"
  21. 200 print" [f1/f3]=twist vertically"
  22. 210 print" [f5/f7]=twist horizontally"
  23. 220 print" [f2/f4]=rotate"
  24. 230 print" [home]=untwist/unrotate":print
  25. 250 print"draw/erase; joystick=move               [146]";
  26. 260 print" [f6]=draw mode, firebutton=draw"
  27. 270 print" [f8]=erase mode, firebutton=erase"
  28. 280 print" any key to return to edit mode"
  29. 290 rem
  30. 300 rem
  31. 310 a=usr(0)
  32. 320 ifa=182thenprint"[147] load screen:":goto360
  33. 330 ifa=174thenprint"[147] save screen:":goto360
  34. 340 ifa=13then430
  35. 345 ifa=88thensys50715:end
  36. 350 goto310
  37. 360 print" (use 'dd' prefix for doodle format)"
  38. 370 input" filename";f$
  39. 380 s=96+4*(left$(f$,2)="dd")
  40. 390 poke50612,s:poke50631,s
  41. 400 ifa=182thensys50604f$,8,0
  42. 410 ifa=174thensys50623f$,8,0
  43. 420 goto60
  44. 430 sys50684:rem gohirz
  45. 440 a=usr(0)
  46. 450 ifa=13then50
  47. 460 ifa=182ora=174thensys50715:goto320
  48. 470 ifa=67thensys50315:rem cut
  49. 480 ifa=80thensys50397:rem paste dots
  50. 490 ifa=69thensys50394:rem paste holes
  51. 500 ifa=84thensys50400:rem paste toggle
  52. 510 ifa=43thensys50032:rem vert
  53. 520 ifa=45thensys49987:rem horiz
  54. 530 ifa=92thensys50080:rem rotate
  55. 540 ifa=133thensys49318:rem goup
  56. 550 ifa=134thensys49325:rem godown
  57. 560 ifa=135thensys49332:rem gorite
  58. 570 ifa=136thensys49339:rem goleft
  59. 580 ifa=147thensys50561:rem reset
  60. 590 ifa=137thensys49346:rem rt3up2
  61. 600 ifa=138thensys49353:rem lt3dn2
  62. 610 ifa=19thensys50587:rem home
  63. 620 ifa=162thensys51152:rem invert
  64. 630 ifa=178thensys51193:rem scopy
  65. 640 ifa=189thensys51215:rem sswap
  66. 650 ifa=191thensys51174:rem sblank
  67. 660 ifa=79thensys51006:rem trace
  68. 670 ifa=139thensys50908:rem draw
  69. 680 ifa=140thensys50905:rem erase
  70. 685 printa
  71. 690 ifa=88thensys50715:end
  72. 700 goto440
  73.